home *** CD-ROM | disk | FTP | other *** search
Text File | 1988-05-08 | 1.2 KB | 36 lines | [TEXT/MPS ] |
- # PatchMacApp - modify MacApp's UPrinting unit for CreateDeclarationIndex
- #
- # Usage:
- # PatchMacApp
- #
- # CreateDeclarationIndex does not care about compiler options. Therefore it
- # cannot handle units where a syntactic structure is opened or closed inside
- # an $IFC branch. PatchMacApp corrects the only unit I know that features
- # this problem - the UPrinting unit of MacApp 1.1.1.
- #
- # Copyright Norbert Lindenberg 1988
- # All rights reserved.
-
- confirm "This script has been tested for MacApp 1.1.1 only.∂
- ∂nAre you sure about using it?" || Exit 1
- Target "{SrcMacApp}UPrinting.p" ≥ Dev:Null || ∂
- ( Alert -s 'Could not find UPrinting.' ; ∂
- Exit 1)
- ( Find • && Find /PrintTraps;/ && Find /MacPrint;/ ) || ∂
- ( Alert -s "PatchMacApp seems not to be applicable to your UPrinting unit.∂
- ∂n∂nNothing changed." ; ∂
- Exit 1)
- ( Find • && ∂
- Find /•≈'MacApp.LOAD}'/:!1 && ∂
- Cut § && ∂
- Find /'{$ENDC}'/Δ!1 && ∂
- Paste § && ∂
- Find • && ∂
- Replace /PrintTraps;/ 'PrintTraps,' && ∂
- Replace /MacPrint;/ 'MacPrint,' && ∂
- Replace /UMacApp,/ 'UMacApp;' ) || ∂
- ( Alert -s "Patch failed.∂n∂
- ∂nUPrinting may have been modified, but has not been saved.";∂
- Exit 1)
- Close -y
-